IsOutOfGridInteger Function

private function IsOutOfGridInteger(i, j, grid)

calculates if cell is out of grid space limits

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i
integer, intent(in) :: j
type(grid_integer), intent(in) :: grid

Return Value logical


Source Code

LOGICAL FUNCTION IsOutOfGridInteger &
!
(i, j, grid) 

IMPLICIT NONE

!Arguments with intent in:
INTEGER, INTENT(IN) :: i,j
TYPE (grid_integer), INTENT(IN) :: grid

!----------------------end of declarations-------------------------------------

 IF (i > grid % idim .OR. j > grid % jdim .OR. i < 1 .OR. j < 1) THEN
      IsOutOfGridInteger = .TRUE.
 ELSE
      IsOutOfGridInteger = .FALSE.
 ENDIF

END FUNCTION IsOutOfGridInteger